home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8173 < prev    next >
Text File  |  1993-10-08  |  2KB  |  132 lines
  1. %%BeginFile: adobe_psp_patterns_level2
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /pmtx Z
  4. /BGnd Z
  5. /FGnd Z
  6. /PaintData Z
  7. /PatternMtx Z
  8. /PatHeight Z
  9. /PatWidth Z
  10. /$d Z
  11. /savecolor 4 array def
  12. /savecolorspace Z
  13. /:a{
  14. mark 0 0 0 currentcolor savecolor astore pop cleartomark
  15. /savecolorspace currentcolorspace store
  16. }bd
  17. /:e{
  18. savecolorspace setcolorspace
  19. mark savecolor aload pop setcolor cleartomark
  20. }bd
  21. /initQDpatterns
  22. {
  23. gS
  24. initmatrix
  25. mT dup 4 get exch 5 get :T
  26. 1 0 dtransform round exch round exch idtransform
  27. dup mul exch dup mul exch add sqrt
  28. 0 1 dtransform round exch round exch idtransform
  29. dup mul exch dup mul exch add sqrt
  30. neg
  31. scale
  32. 0
  33. por not{90 add}if
  34. normland{180 add}if
  35. rotate
  36. matrix currentmatrix
  37. gR
  38. /pmtx xs
  39. :a
  40. }bd
  41. /:t
  42. {
  43. 14 dict begin
  44. /BGnd xdf
  45. /FGnd xdf
  46. /PaintData xdf
  47. /PatternType 1 def
  48. /PaintType 1 def
  49. /BBox[0 0 1 1]def
  50. /TilingType 1 def
  51. /XStep 1 def
  52. /YStep 1 def
  53. /PatternMtx[24 0 0 24 0 0]def
  54. /PaintProc
  55. BGnd null ne
  56. {
  57. {
  58. begin
  59. BGnd aload pop :F
  60. 0 0 1 1 rF
  61. FGnd aload pop :F
  62. 24 24 true PatternMtx PaintData imagemask
  63. end
  64. }
  65. }{
  66. {
  67. begin
  68. FGnd aload pop :F
  69. 24 24 true PatternMtx PaintData imagemask
  70. end
  71. }
  72. }ifelse
  73. def
  74. currentdict
  75. PatternMtx
  76. end
  77. gS $c setcolorspace pmtx setmatrix makepattern gR
  78. }bd
  79. /:u
  80. {
  81. 14 dict begin
  82. /$d 8 dict def
  83. /PatternType 1 def
  84. /PaintType 1 def
  85. /BBox[0 0 1 1]def
  86. /TilingType 1 def
  87. /XStep 1 def
  88. /YStep 1 def
  89. /PaintData xdf
  90. /PatHeight xdf
  91. /PatWidth xdf
  92. /PatternMtx[PatWidth 0 0 PatHeight 0 0]def
  93. $d begin
  94. /ImageType 1 def
  95. /MultipleDataSource false def
  96. /Height PatHeight def
  97. /Width PatWidth def
  98. /Decode[0 1 0 1 0 1]def
  99. /ImageMatrix PatternMtx def
  100. /DataSource PaintData def
  101. /BitsPerComponent 8 def
  102. end
  103. /PaintProc
  104. {
  105. begin
  106. $d image
  107. end
  108. }def
  109. currentdict
  110. PatternMtx
  111. end
  112. gS $c setcolorspace pmtx setmatrix makepattern gR
  113. }bd
  114. /bk[1 1 1]def
  115. /fg[0 0 0]def
  116. /:b{
  117. :t
  118. setpattern
  119. pop pop
  120. }bd
  121. /:d{
  122. :t
  123. setpattern
  124. 10{pop}repeat
  125. }bd
  126. /:c{
  127. :u
  128. setpattern
  129. 10{pop}repeat
  130. }bd
  131. %%EndFile
  132.